home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_121_(06-1985).d64 / kilowatt analysi (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  185 lines
  1. 1 REM     ANN F. SYKES
  2. 2 REM     3270 SE 18TH AVENUE
  3. 3 REM     GAINESVILLE, FL.  32601
  4. 4 REM     (904) 378-4862
  5. 5 REM
  6. 6 REM
  7. 10 POKE53280,1:POKE53281,1
  8. 15 PRINT"[147]
  9. 20 [129]I[178]1[164]3
  10. 25 [153]"":[130]
  11. 30 [153][163]13);"KILOWATT ANALYST":[129]DE[178]1[164]1500:[130]
  12. 40 [153]"LOAD ";
  13. 50 [153][163]15)" SYS OPTIONS:CONT":[153]:[153]
  14. 60 [153][163]11)" FORM WAITCONT ETER ANALYSIS":[153]
  15. 65 [153][163]11)" FORA WAIT CONT PPLIANCE COST ANALYSIS":[153]
  16. 75 [153][163]11)"YOUR CHOICE
  17. 80 GETZ$:IFZ$=""THEN80
  18. 85 IFZ$="M"THEN500
  19. 95 IFZ$<>"A"THEN80
  20. 200 CLR:PRINT"[147]"
  21. 210 PRINT"THIS SECTION WILL COMPUTE THE COST OF"
  22. 220 PRINT"ELECTRICAL APPLIANCES AROUND YOUR HOME."
  23. 230 PRINT"YOU'LL NEED YOUR ELECTRIC BILL FROM"
  24. 240 PRINT"LAST MONTH."
  25. 250 PRINT"";
  26. 252 GOSUB5000
  27. 260 INPUT"[147] ENTER LAST MONTH'S BILL";LA
  28. 270 INPUT" ENTER TOTAL KILOWATT-HOURS USED";TK
  29. 280 AV=LA/TK:AV=INT(AV*100+.5)/100
  30. 290 PRINT"  YOUR COST PER KWH-";AV
  31. 295 PRINT:PRINT:PRINTTAB(16)" [156]ANALYSIS[146] [154]":PRINT:PRINT
  32. 300 INPUT" NAME OF APPLIANCE";NA$
  33. 310 PRINT" WATTAGE OF "NA$;
  34. 320 INPUTWA
  35. 330 INPUT" HRS OF OPERATION/DAY";HR
  36. 340 CS=(WA*HR)*(30.4/1000*AV)
  37. 350 J=J+1
  38. 360 SU=SU+CS
  39. 370 CS=INT(CS*100+.5)/100:SU=INT(SU*100+.5)/100
  40. 380 PRINT"[147]  THE COST OF OPERATING YOUR"
  41. 390 PRINT" "NA$" FOR 1 MONTH"
  42. 400 PRINT" IS ";"$";CS
  43. 410 IFJ>1THEN440
  44. 420 PRINT" WANT ANOTHER APPLIANCE (Y/N)?
  45. 421 [161]C$:[139]C$[178]""[167]421
  46. 422 [139]C$[178]"Y"[167]300
  47. 423 [139]C$[179][177]"N"[167]421
  48. 430 [153]" WANT TO RETURN TO MAIN MENU (Y/N)?
  49. 432 GETC$:IFC$=""THEN432
  50. 433 IFC$="Y"THEN40
  51. 434 IFC$<>"N"THEN432
  52. 435 STOP
  53. 440 PRINT" WANT TO SEE MONTHLY TOTALS (Y/N)?
  54. 441 [161]C$:[139]C$[178]""[167]441
  55. 442 [139]C$[178]"N"[167]420
  56. 443 [139]C$[179][177]"Y"[167]441
  57. 450 [139] C$[178]"N"[167][137]420
  58. 460 [153]" YOUR TOTALS THUS FAR ARE ";SU:[137]420
  59. 500 [156]:[153]"LOAD ";
  60. 501 [153][163]5)"DO YOU WANT TO:":[153]:[153]
  61. 502 [153][163]10)" FORVWAITCONT IEW DATA":[153]
  62. 503 [153][163]10)" FOREWAITCONT NTER DATA":[153]
  63. 504 [153][163]10)"YOUR CHOICE
  64. 505 GETZ$:IFZ$=""THEN505
  65. 506 IFZ$="E"THEN50000
  66. 507 IFZ$<>"V"THEN505
  67. 508 PRINT"[147]":Q=1000
  68. 509 RESTORE
  69. 510 READA
  70. 520 READB,C,D$
  71. 530 PRINT"FIRST READ ON "D$;B;" WAS ";C
  72. 540 PRINT:PRINT"COST PER KWH IS ";A
  73. 550 PRINT:PRINT"DATE READ";TAB(12);"METER";TAB(19);"KWH USED";TAB(29);"COST/DAY
  74. 560 [153]"VALVALVALVALVALVALVALVALVAL";[163]12);"VALVALVALVALVAL";[163]19);"VALVALVALVALVALVALVALVAL";[163]29);"VALVALVALVALVALVALVALVAL
  75. 570 G1=C
  76. 580 B2=B
  77. 600 FORI=1TOQ
  78. 610 K=1
  79. 620 READB
  80. 630 IFB=0THEN760
  81. 640 IFB<B2THEN660
  82. 650 K=B-B2
  83. 660 B2=B
  84. 670 READF,D$
  85. 680 H=F-G1
  86. 690 G=H*A
  87. 700 PRINTB;D$;TAB(12);F;TAB(19);H;TAB(29);G
  88. 720 G1=F
  89. 730 G2=G2+G
  90. 740 K1=K1+K
  91. 750 NEXTI
  92. 760 G3=F-C
  93. 770 PRINTTAB(19);"[197][197][197][197][197]";TAB(29);"[197][197][197][197][197]
  94. 780 [153][163]5);"TOTALS";[163]19);G3;[163]29);G2
  95. 800 [153]"VALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL
  96. 810 PRINT"TOTAL TEST DAYS:";K1
  97. 820 X=G3/K1:X=INT(X*100+.5)/100
  98. 830 Y=G2/K1:Y=INT(Y*100+.5)/100
  99. 840 PRINT"AVG DAILY USE:"X;"KWH
  100. 850 [153]"AVG DAILY COST: $"Y
  101. 860 [153]:[153]"DO YOU WANT HARDCOPY (Y/N)?
  102. 861 GETPO$:IFPO$=""THEN861
  103. 862 IFPO$="Y"THEN6000
  104. 863 IFPO$<>"N"THEN861
  105. 864 PRINT:PRINT"WANT TO RETURN TO MAIN MENU (Y/N)?
  106. 865 [161]C$:[139]C$[178]""[167]865
  107. 866 [139] C$[178]"Y"[167]40
  108. 867 [139]C$[179][177]"N"[167]865
  109. 868 [144]
  110. 870 [131].085
  111. 871 [131]2,1100,FEB
  112. 872 [131]3,1290,FEB
  113. 873 [131]4,1460,FEB
  114. 874 [131]5,1720,FEB
  115. 875 [131]6,2100,FEB
  116. 876 [131]8,2470,FEB
  117. 877 [131]9,2680,FEB
  118. 878 [131]10,2980,FEB
  119. 879 [131]11,3290,FEB
  120. 880 [131]12,3500,FEB
  121. 1000 [131]0
  122. 5000 [153][163]8)"SYSHIT ANY KEY TO CONTINUEWAITCONT
  123. 5010 WAIT197,64,64:POKE198,0
  124. 5020 RETURN
  125. 6000 CLR:PRINT"[147]";
  126. 6010 PRINTTAB(16)"[156]PRINTING[146][154]
  127. 6020 [159]4,4:[157]4
  128. 6030 [140]
  129. 6035 Q[178]1000
  130. 6040 [135]A
  131. 6050 [135]B,C,D$
  132. 6060 [153]"YOUR FIRST READ ON "D$;B$;" WAS ";C
  133. 6070 [153]:[153]"YOUR COST PER KWH IS ";A
  134. 6080 [153]:[153]"DATE READ";[199](16);"20METER";[199](16);"40KWH USED";
  135. 6090 [153][199](16);"60COST/DAY
  136. 6100 PRINT"[197][197][197][197][197][197][197][197][197]";CHR$(16);"20[197][197][197][197][197]";CHR$(16);"40[197][197][197][197][197][197][197][197]";
  137. 6110 PRINTCHR$(16);"60[197][197][197][197][197][197][197][197]
  138. 6120 G1[178]C
  139. 6130 B2[178]B
  140. 6140 [129]I[178]1[164]Q
  141. 6150 K[178]1
  142. 6160 [135]B
  143. 6170 [139]B[178]0[167]6290
  144. 6180 [139]B[179]B2[167]6200
  145. 6190 K[178]B[171]B2
  146. 6200 B2[178]B
  147. 6210 [135]F,D$
  148. 6220 H[178]F[171]G1
  149. 6230 G[178]H[172]A
  150. 6240 [153]B;D$;[199](16);"20"F;[199](16);"40"H;[199](16);"60"G
  151. 6250 G1[178]F
  152. 6260 G2[178]G2[170]G
  153. 6270 K1[178]K1[170]K
  154. 6280 [130]I
  155. 6290 G3[178]F[171]C
  156. 6300 [153][199](16);"40VALVALVALVALVAL";[199](16);"60VALVALVALVALVALVAL
  157. 6310 PRINTCHR$(16);"05TOTALS";CHR$(16);"40"G3;CHR$(16);"60"G2
  158. 6320 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]
  159. 6330 [153]"TOTAL TEST DAYS:";K1
  160. 6340 X[178]G3[173]K1:X[178][181](X[172]100[170].5)[173]100
  161. 6350 Y[178]G2[173]K1:Y[178][181](Y[172]100[170].5)[173]100
  162. 6360 [153]"AVERAGE DAILY USE:";X;"KWH
  163. 6370 PRINT"AVERAGE DAILY COST: $";Y
  164. 6380 PRINT#4:CLOSE4:GOTO864
  165. 50000 CLR:PRINT"[147]";:PRINTTAB(3)"[156]DATA ENTRIES BEGIN WITH LINE 870[146][154]
  166. 50001 [153]:[153][163]3)"CLRTHEY ARE INCREMENTED BY ONEWAITCONT
  167. 50002 PRINT:PRINTTAB(3)"[156]PLEASE CHECK FOR LAST ENTRY LINE,[146][154]
  168. 50003 [153]:[153][163]3)"CLRTHEN TYPE RUN 50008,WAITCONT
  169. 50004 PRINT:PRINT:GOSUB5000
  170. 50006 LIST870-1000
  171. 50008 PRINT:PRINT:PRINT"ENTER STARTING,ENDING LINE NUMBER:":INPUTT,G
  172. 50009 IFT>50000ORG>50000ORG<TTHEN50008
  173. 50010 INPUT"INCREMENT LINES BY";FT:Y=T
  174. 50011 PRINTCHR$(147)Y;"DATA ";:H$=""
  175. 50012 GETA$:IFA$=""THENPRINT"[209][157]";:GOTO50012
  176. 50013 IFLEN(H$)>65ANDA$<>CHR$(13)ANDA$<>CHR$(20)THEN50012
  177. 50014 IFA$=CHR$(20)ANDLEN(H$)=0THEN50012
  178. 50015 PRINTA$;:IFA$=CHR$(20)THENH$=LEFT$(H$,LEN(H$)-1):GOTO50012
  179. 50016 IFA$=CHR$(13)THEN50018
  180. 50017 H$=H$+A$:GOTO50012
  181. 50018 PRINT"Y=";Y;":FT=";FT;":G=";G:PRINT"GOTO50020":POKE631,19:POKE632,13
  182. 50019 POKE633,13:POKE634,145:POKE635,145:POKE636,13:POKE198,6:END
  183. 50020 Y=Y+FT:IFY>GTHENEND
  184. 50021 GOTO50011
  185.